100 REM ******************************
110 REM *      CHOPPER RUN           *
115 REM *                            *
120 REM *   WRITTEN BY H. CAMPBELL   *
130 REM *                            *
140 REM ******************************
150 :
160 :
165 POKE53281,0 :POKE53280,0
170 GOSUB20000
200 V=53248  : REM V=VICII STARTING ADDRESS
202 S=54272 : REM S=SID STARTING ADDRESS
204 DN$="[155]^":SR$=""
210 FORI=STOS+24:POKEI,0:NEXT : REM CLEAR SID
220 MX=0
230 FORI=1009TO1013:READA:POKEI,A:NEXT
235 DATA0,0,3,1,2
242 ::FORI=828TO991:READA:POKEI,A:NEXTI : REM POKE ML JOYSTICK READER
243 ::FORI=0TO319
244 ::READA: REM GET SPRITE DATA
245 ::POKEI+12288,A : REM PLACE DATA AT 12288 ON
246 ::NEXTI
247 PRINT"[147][158]DO YOU WANT DETAILS?  Y[146]ES OR N[146]O":POKE198,0
248 GETA$:IFA$<>"Y"ANDA$<>"N"THEN248
249 IFA$="Y"THENGOSUB30000
250 POKE2040,192 : REM POINT SPRITE 0 DATA POINTER TO 12288
251 GOSUB 1000
252 SC=0:CH=0:CT=0:DI=0:HI=0
254 POKES+1,8 : POKES+6,128 : POKES+24,15
270 POKEV+39,6 : REM SET SPRITE 0 COLOR
272 POKEV+37,1  : REM MULTI-COLOR 1
273 POKEV+38,15 : REM MULTI-COLOR 2
275 POKE53276,3 : REM SET MOBS TO MULTI-COLOR
280 POKEV+1,200 : POKEV,155 : POKEV+16,0
281 POKEV+2,120 : POKEV+3,255
282 POKE2041,196 : REM POINT SPRITE 1 DATA POINTER
283 POKEV+40,10 : REM SET SPRITE 1 COLOR
284 A=PEEK(V+31) : REM CLEAR SPR/CHR COLLISION REGISTER
285 A=PEEK(V+30) : REM CLEAR SPR/SPR COLLISION REGISTER
286 POKEV+21,3 : REM TURN ON SPRITES
288 SYS 937
294 PRINT"[147]";:GOSUB500
295 POKES+24,0 : POKEV+21,0
300 PRINT"[147]DISTANCE[158]"DI
302 IFDI>MXTHENMX=DI
305 PRINTSPC(20)"[145]MAX. DIST[158]"MX
310 PRINT"WOULD YOU LIKE TO PLAY AGAIN?"
320 INPUT"  Y[157][157][157]";A$
330 IFA$="Y"THEN250
340 PRINT"[147]";:END
400 RUN
410 :
420 :
500 REM ////////////////
510 REM / MAIN ROUTINE /
520 REM ////////////////
530 :
534 IC=.005
535 S1=129:S0=128:PO=218:PE=143:F=2
536 DI$="DISTANCE[158]":SC$="[157][148]"
540 PRINT"[147][149][209][209] [209][145] [209][209]    [209][209][209]    [209][209]      [209][209][209][145][145][209][209]   [209][209][145][209] [145][145][145][209][209]"
542 PRINT"                     [209][145][145]"
545 PRINT"[209]   [209]    [145][145][145][145][145][145][209]     [209]    [209]     [145][145][145][145][145][145][209]         [209]"
550 POKES+4,S1:DI=DI+SP
560 FORI=1TOSK:NEXT
575 IFPEEK(V+30)THENGOSUB940:RETURN
580 POKES+4,S0:PRINTDI$;DI;SC$:POKEPO,PE
610 CL=PEEK(V+31):IF(CLAND1)=1THENGOSUB900:RETURN
615 IFCLTHENPOKE2041,0:POKEV+3,255:POKE2041,196
635 POKEV+3,PEEK(V+3)-F:F=F+IC:IFPEEK(V+3)<25THENPOKEV+3,255
638 IFPEEK(V+1)<55THENGOSUB940:RETURN
640 GOTO 550
650 :
900 REM //////////////////////////////
910 REM / MOB/MOB COLLISION RESPONSE /
920 REM //////////////////////////////
930 :
940 POKE985,0
950 POKES+1,2:POKES+4,129
955 FORI=1TO300:NEXTI
958 POKE985,192
960 RETURN
970 :
1000 REM ///////////////
1010 REM / SKILL LEVEL /
1020 REM ///////////////
1030 :
1040 PRINT"[147]PRESS THE DESIRED SKILL LEVEL NUMBER."
1050 PRINT"0 = HARDEST ; 5 = EASIEST" : POKE198,0
1060 GETA$:IFA$=""THEN1060
1070 SK=VAL(A$):IFSK>5THEN1060
1075 SP=6-SK
1080 SK=SK*10
1090 RETURN
1100 :
2000 REM ///////////////////////////
2010 REM / ML JOYSTICK READER DATA /
2020 REM ///////////////////////////
2030 :
2040 DATA173,0,220,74,176,3,206,1,208,74,176,3,238,1,208,74,176,42,173,0,208,208
2041 DATA31,173,16,208,41,1,208,16,173,16,208,9,1,141,16,208,169,80,141,0,208,76
2042 DATA182,3,173,16,208,41,252,141,16,208,206,0,208,76,182,3,74,176,32,238,0,208
2043 DATA240,30,169,80,205,0,208,208,20,173,16,208,41,1,240,13,173,16,208,41,252
2044 DATA141,16,208,169,0,141,0,208,76,182,3,173,16,208,9,1,141,16,208,76,182,3,120
2045 DATA169,60,141,20,3,169,3,141,21,3,88,96,173,16,208,41,1,240,5,9,2,141,16,208
2046 DATA173,0,208,141,2,208,173,241,3,24,105,1,41,3,141,241,3,170,189,242,3,24,105
2047 DATA192,141,248,7,76,49,234
2120 :
9000 REM ///////////////
9010 REM / SPRITE DATA /
9020 REM ///////////////
9030 :
9031 DATA000,000,000,000,016,000,000,084
9032 DATA000,000,084,000,000,168,000,002
9033 DATA170,000,255,255,252,002,170,000
9034 DATA002,170,000,000,168,000,000,032
9035 DATA000,000,032,000,000,032,000,000
9036 DATA032,000,000,032,000,000,032,000
9037 DATA003,032,000,003,160,000,003,000
9038 DATA000,000,000,000,000,000,000,006
9039 DATA000,000,000,000,048,000,000,116
9040 DATA000,000,116,000,000,184,000,002
9041 DATA186,000,002,186,000,002,186,000
9042 DATA002,186,000,000,184,000,000,048
9043 DATA000,000,048,000,000,032,000,000
9044 DATA032,000,000,032,000,000,032,000
9045 DATA003,032,000,003,160,000,003,000
9046 DATA000,000,000,000,000,000,000,006
9047 DATA000,000,000,192,016,000,048,084
9048 DATA000,012,084,000,003,168,000,002
9049 DATA234,000,002,186,000,002,174,000
9050 DATA002,171,000,000,168,192,000,032
9051 DATA048,000,032,012,000,032,000,000
9052 DATA032,000,000,032,000,000,032,000
9053 DATA003,032,000,003,160,000,003,000
9054 DATA000,000,000,000,000,000,000,006
9063 DATA000,000,000,000,016,012,000,084
9064 DATA048,000,084,192,000,171,000,002
9065 DATA174,000,002,186,000,002,234,000
9066 DATA003,168,000,012,168,000,048,032
9067 DATA000,192,032,000,000,032,000,000
9068 DATA032,000,000,032,000,000,032,000
9069 DATA003,032,000,003,160,000,003,000
9070 DATA000,000,000,000,000,000,000,006
9071 DATA032,000,000,168,000,000,168,000
9072 DATA000,032,000,000,032,000,000,032
9073 DATA000,000,032,000,000,168,000,000
9074 DATA168,000,000,136,000,000,184,000
9075 DATA000,048,000,000,048,000,000,048
9076 DATA000,000,000,000,000,000,000,000
9077 DATA000,000,000,000,000,000,000,000
9078 DATA000,000,000,000,000,000,000,255
20000 REM //////////////
20005 REM / TITLE PAGE /
20010 REM //////////////
20015 :
20020 PRINT"[147]"SPC(13)"[158]CHOPPER RUN"
20030 PRINTSPC(10)"BY HOWARD CAMPBELL"
20040 RETURN
20050 :
30000 REM ////////////////
30002 REM / OBJECTIVE  ///
30004 REM ////////////////
30005 :
30009 PRINT"[147][158]YOU ARE THE PILOT OF A RECONNAISSANCE
30010 [153]"CHOPPER TRAPPED BEHIND ENEMY LINES.
30020 PRINT"TO EVADE CERTAIN DESTRUCTION YOU MUST
30030 [153]"FLY LESS THAN TEN FEET OFF THE GROUND.
30040 PRINT"YOU WILL HAVE TO AVOID VARIOUS GROUND
30050 [153]"PROJECTIONS OR FACE THE POSSIBLILITY OF
30060 PRINT"CRASHING.
30070 [153]"YOU MUST EVADE HEAT-SEEKING MISSILES,"
30080 [153]"WHICH ARE CONSTANTLY LAUNCHED TO INTER-"
30090 [153]"CEPT YOU.  THE ONLY CERTAIN WAY TO SHAKE";
30100 [153]"THESE MISSILES OFF YOUR TAIL IS TO FORCE";
30110 [153]"THEM TO STRIKE A GROUND PROJECTION.
30120 PRINT"PLACE JOYSTICK IN PORT 2 TO CONTROL YOUR CHOPPER.
30140 [153]"             PRINTGOOD LUCK!!!WAIT
30150 PRINT"       [158]PRESS <SPACE> TO CONTINUE[146]";
30160 GETA$:IFA$=""THEN30160
30170 RETURN